﻿Public Class IstatistikHastalikFis
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="Elden Girilen Hastalık İstatistik Fişi Girişi"
        '        InitialHelp = "Şubeyi seçin ve istatistik fiş numarasını girin."
        '        AddField("@Sube", "", "1", "Şubeyi seçmelisiniz.")
        '        AddField("FisNo", "nl", "", "Fiş numarasını belirtmelisiniz.")
        '        StartBody()
        '        AddField("Tarih[name=dtar;label=Doğum Tarihi]", "nl")
        '        AddField("IsyeriNo")
        '        AddField("sicilno", "nl")
        '        AddField("Statu")
        '        AddField("Tutar[name=gkazanc;label=Günlük Kazanç]", "nl")
        '        AddField("gys", "", "1")
        '        AddField("Cinsiyet", "nl", "E")
        '        AddField("GenericNumber[name=topgun;label=Toplam Gün]")
        '        AddField("GenericNumber[name=odenengun;label=Ödenen Gün]", "nl")
        '        AddField("FisNo[name=odenmeyengun;label=Ödenmeyen Gün]")
        '        AddField("FisNo[name=yatakta;label=Yatakta]", "nl")
        '        AddField("FisNo[name=Ayakta;label=Ayakta]")
        '        AddField("Tutar[name=odemik;label=Ödeme Miktarı]", "nl")
        '        AddField("Tarih[name=hbastar;label=Hastalık Baş. Tarihi]")
        '        SetTabs("Sube,FisNo,dtar,isyerino, sicilno,Statu,gkazanc,gys,Cinsiyet,topgun ,odenengun, odenmeyengun, yatakta, ayakta, odemik, hbastar")
        '        DisplayForm()
        '    Case EventType.ValidateForm
        '        Dim Rs As Recordset = OpenSQL("select * from isthasfis where bolge = :bolge and istno = :istno", Input("Sube"), Input("FisNo"))
        '        If Rs.EOF Then
        '            If Not Confirm("Böyle bir fiş bulunamadı. Yeni kayıt mı yaratmak istiyorsunuz?") Then Focus("Sube") : Exit Sub
        '        Else
        '            SetValues("dtar,isyerino,sicilno,gkazanc,gys,Cinsiyet ", Rs("dtar"), Rs("isyerino"), Rs("sicil"), Rs("gkazanc"), Rs("gys"), Rs("cins"))
        '            SetValues("topgun,odenengun,odenmeyengun,", Rs("topgun"), Rs("odenengun"), Rs("odenmeyengun"))
        '            SetValues("yatakta,odemik,hbastar", Rs("yatakta"), Rs("odemik"), Rs("hbastar"))
        '        End If
        '        Help = "Fiş bilgilerini girin."
		'        Buttons.Show("Save.Reset")
        '        e.Result = True
        '    Case EventType.Save
        '        Dim Rs As Recordset = OpenSQL("select * from isthasfis where bolge = :bolge and istno = :istno", Input("Sube"), Input("FisNo"))
        '        If Rs.EOF Then Rs.AddNew()
        '        Dim Cinsiyet As Integer
        '        If Input("Cinsiyet") = "E" Then Cinsiyet = 1 Else If Input("Cinsiyet") = "K" Then Cinsiyet = 2
        '        Rs.SetValues("bolge,istno", Input("Sube"), Input("FisNo"))
        '        Rs.SetValues("dtar,statu,isyerino,Sicil,gkazanc,gys,Cins", Input("dtar"), Input("statu"), Input("isyerino"), Input("sicilno"), Input("gkazanc"), Input("gys"), Cinsiyet)
        '        Rs.SetValues("topgun,odenengun,odenmeyengun", Input("topgun"), Input("odenengun"), Input("odenmeyengun"))
        '        Rs.SetValues("yatakta,ayakta,odemik,hbastar", Input("yatakta"), Input("ayakta"), Input("odemik"), Input("hbastar"))
        '        Rs.Save()
        '        Info("Hastalık Fiş bilgileri kaydedildi.")
        '        Close()
        'End Select
    End Sub

End Class

